home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch1 / arrays < prev    next >
Text File  |  1991-01-07  |  572b  |  18 lines
  1. #!/usr/bin/perl
  2. ($red, $green, $blue) = (0..2);
  3. ($name,$pw,$uid,$gid,$gcos,$home,$shell) =
  4.     split(/:/, <PASSWD>);
  5. ($a[2], $a[0], $a[3], $a[1]) = @growing_things;
  6.  
  7. @growing_things = ('oats','peas','beans','barley');
  8. @legumes = splice(@growing_things, 1, 2, 'wheat', 'rice', 'corn');
  9.  
  10. @a = (1..3);        # Same as @a = (1, 2, 3);
  11. @b = (0, @a, 4);    # Same as @b = (0, 1, 2, 3, 4);
  12.  
  13. @a = (2);           # Same as @a = 2;
  14. @b = (0, @a, 4);    # Same as @b = (0, 2, 4);
  15.  
  16. @a = ();            # Same as $#a = -1;  i.e. make null list.
  17. @b = (0, @a, 4);    # Same as @b = (0, 4);
  18.